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1 . SCOPE 


1.1 GENERAL 

This specification establishes the design for the program, 
MDEP Metro Data Edit Program. 

2. APPLICABLE DOCUMENTS 

The following documents form a part of this specification to 
the extent specified herein: 

• TIRF 76-0061 


3. SYSTEM DESCRIPTION 

3. 1 HARDWARE DESCRIPTION 

N/A 


3. 2 SOFTWARE DESCRIPTION 

The purpose of this program is to provide a means of editing 
the Metro Data Tape. 


3.2.1 

SOFTWARE COMPONENT 

NO. 1 (MDEP) 

a. Software Main Program 

MDEP 

• 

Software 

subroutine 

LIST 

• 

Software 

subroutine 

EDIT 

• 

Software 

subroutine 

RLHM 

• 

Software 

subroutine 

REDHED 

• 

Software 

subroutine 

GETCO 

• 

Software 

subroutine 

POP1 

• 

Software 

subroutine 

POP2 

• 

Software 

subroutine 

POP3 

• 

Software 

subroutine 

SEP 

• 

Software 

subroutine 

GETEXP 
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3. 2. 1. 1 Inputs 


a. Metro Data Tape 

b. MDEP Control Cards 

• LSTI - give a sequenced listing of the input tape. 

• LST0 * give a sequenced listing of the output tape. 

• EDIT - edit the input tape and write to a new tape. 

- Copy +N - edit instruction to copy /N/ lines to tape. 

If N<0, the change cards are read here. 

- DELE N - DELE thru N lines. 

- RETN - return to calling routine; 

• EXIT - terminate the job. 

• REWI - rewind the input tape. 

• REW0 - rewind the output tape. 

• E0F0 - write a file mark on the output tape. 

• C0PL - print sequenced listing of input tape. Copy 

to output tape with corrected rel. hum. 

• SKRI N - skip N records on the input tape. 

• SKR0 N - skip N records on the output tape. 

• SKFI N - skip N files on the input tape. 

• SKF0 N - skip N files on the output tape. 

• HEDI - read the header record on the input tape. 

• HED0 - read the header record on the output tape. 

• SHLI - get a short listing on the input tape. 

• SHL0 - get a short listing on the output tape. 

• PAUZ - pause. 
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c. Change Cards (2 sample decks provided) 


F N J 

REWI 
RfwO 
COPL 1 
PA UZ 
E OFO 
COPL 2 
PAII2 
EnFn 
EDIT 
16 3.176 
cnPY pqpq 
i-nFQ 
RF'-'l 

rewo 

L ST I 3 
REWI 

L ST n 1 
LS TO 2 
LSTO 3 
re'-ti 
FXIT 


NOTE: 


Deck 1 


F = Function code and goes into columns 1-4. 

N * NUM goes into columns 5-6, right justified 
when required. (NUM*number of times 
10 performing the function such as skipping 
files and records.) 

J * KOPIN goes into columns 7-8, right justi- 
fied when required. (j=print option, and 
must be input for all list options LSTI, 
LSTO, COPL, J*l,2, or 3 when used. 
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If the edit function is executed, the next card must be 
a date card of the form DDMMYY in col. 1-6. Two edit 
functions COPY and DELE must have the line numbers right 
justified in col. 5-10. If data is to be changed, a copy 
is used with a negative line number. In this case, the 
following procedure must be followed 

CARD 1 INTEGER 

Col , Contents 

1-5 *L * line number to change 

6-10 N ■ number of changes per line L. 

N cols 

of 5 indices of u.e data in line L to change. Value is 
1-22 and may require two cards. 

CARD 2 (FL. PT.) 

Col . Contents 

1-5 Change data for first index 

N cols Change data for Nth index 

*NOTE: R^ad a negative when all corrections per a copy is 

performed. Please note the explanation of the Deck 2 
setup. 
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CARD 



DECK 2 

COL. 

1 


KFWI 

KFwn 
FH IT 




1 ftl 17ft 



COPY 

- IQ 



1 

3 

ft 11 

14 

770.3 

13.1 

20.4 


? 

3 

ft 11 

14 

77 0. s 

13. ft 

20. Q 


ft 

4 

ft ft 

11 

77 0, ft 

35 .4 

13.1 20.4 


-ft 

1 

fl 






OFL F 

copy 

?o 

40 



oF| f 

100 



COPY 
r- of n 

ft F w I 

qqnq 



pFwn 
L S Tl 1 

1 




h 

FX IT 


1.4 


j 

I 


0f *** 
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EXPLANATION OF DECK 2 


CARD 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


EXPLANATION 

Rewind the input tape. 

Rewind the output tape. 

Read the input tape, delete or modify portions of it, 
and write to an output tape. 

16th day of the 11th month of the year 1976 will be 
on the new tape. 

Copy thru line 19. The ( M - H ) indicates changes are 
expected. 

Line one will be changed. Three words of line 1 will 
be changed. These three words are the sixth, eleventh 
and fourteenth. 

word (6) - 770.3, word (11) - 13.1, word (14) - 20.4 

Same as 6 above, but applies to line 2. 

The 6th, 11th, and 14th words of line 2 ■ 770.8, 

13.6 and 20.9 respectively. 

Same as 6 above, but applies to line 5 and 4 changes 
will be made including the fourteenth word. 

The 6th, 8th, 11th and 14th words of line 5 - 770.8, 
55.4, 13.1, and 20.4 respectively. 

Line 6 will be changed, the ("-") is a flag to quit 
reading change cards for this change operation. One 
change is made to the 8th word. 

The 8th word of line 6 ■ 55.4 

Delete from the present line * 1 thru line 20 (this 
deletes only line 20). 

Copy from present line ♦ 1 thru line 40 (this 
copies lines 21 thru 40 without changes. 

Deletes lines 41 thru 100. 

Copy the remainder of the file without changes. 

Write a file mark on the output tape. 

Rewind the input tape. 

Rewind the output. 

List the output tape with option 1 format. 

Rewind the output tape. 

Terminate the job. 


.j 
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3. 2. 1. 2 Outputs 

a. Line printer listing. 

b. Corrected Metro Data Tape. 

3. 2. 1.3 Storage Requirements 
a. 1579 words 

3. 2. 1.4 Description 

N/A 


3. 2. 1.5 Flowchart 
See Appendix A. 

3. 2. 1.6 Listing 
See Appendix B. 
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APPENDIX A 
FLOWCHARTS 
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SUBROUTINE EDIT 
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ENTRY 
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o 

£ 

3 

3 

© 

a 


j 


5 

3 

) 

) 


3 

3 

) 

3 

v) 


PORT0AN IV.PLUS V0?*0« 


MOfP.PTN /TP‘| RlOCKS/WP 


0001 

0002 

0003 

0000 


0003 

0006 

0007 

0000 

oooo 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 10 

0020 
0021 
0022 

0023 

0024 

0025 22 

0026 
0027 
0020 

0020 1 

0030 

0031 

0032 2 

0033 

0034 

0035 3 

0036 

0037 11 

0038 
003« 

0040 

0041 4 

0042 

0043 

0044 

0045 

0046 4 

0047 

0048 5 
C 

0040 6 

0050 

C 

0051 7 

0052 20 


eO“"Ow/UNlT8/!M,!O.HTIiMTO#NOCP#tNAtl530),IH8S.NOPTN 

COmhOn/st*TU3/*8TAT(2) 

BI“E*sTON T*PM?#l7) 

BATA lAPF/'LS'I'TI'.'LS'.'TO*, ' fcB ' , ‘ ! T ' # 'EX • , • IT • , ' RE • . • W 1 • , 

1 1 RF. ' . * wp ' # ' Efl ' . ' *0 * » ' CO • . • PI ' * 1 $K ' * 1 * I ' * ' 3* • . • «0 ' * 1 3K • * ' P 1 ' # 
2*S*»,»ro* i 'MFOoT».‘HF' ( iDO»,‘SMi ( , LP* , S*'» , t.O»#‘PA« # iU2»/ 
NO»rN«l . 

NOCPpfl 

L0«17 

Ll»2 

10*6 

MT!«8 - 

MTOPO 

NT* TFfiPO - - . 

tT«4 

CAI L TTNTTfMTl7NT*TF6,0) ... . 

CALL tTmTT{“T0,NTXTFG,1> 

CALL TATCHfMTn 
CALL TATCHfMTOl 
CONTINUF 

REa 0(T n 4 100 )JFn,nijm,k0PTN 

TFfNljM*. eq,o)nttpj 

TPfKOBTM’.LT.O.pO.KnPTN.Gf.DGo TO 21 

TPfKOpTM.FO,6)ftO TO 22 

NOPTNsKpPTN 

COV'TIN'JF 
00 2 .fOsl.LO 
»0 t J T » 1 , l I . 

TFf iPNf jn'.NF.TAPFfJI.JOnGO TO 2 
rnvTjwiiF 

WRTTP(TT#002)TjN 

GO TO fS»0«4 t 5.6,7,8*ll#12»13»l4,l5 ( 16,l7,18#10»23)»J0 

CONTINIJF 

NPTTF.fTn.102) 

GO TO 5 
C A| L LT3T 
GO TO 10 
NoePp j 
CALL L T3T 
NOfPPO 
GO TO 10 
mThb“t! 
mTTpNTO 
CALL l 1ST 
MtT«Mfl) 

GO TO 10 
CALL FOTT 
GO TO to 
C A I L F* I T 

HFhtNO TNPtjr T*PE 
TRmb*<T t 

GO TO ?0 .. . . 

HFwTNO OUTPUT TAPS 
TPupMtO 

call fp-oittPU) 
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o 


a 


o 


o 


:3 


F0»T»AN IV. PLUS V0?.04 16I01M5 

> MOSP.fTN /T»ifL0C«$/vi« 


09.DCC-7t» 


PA6fc i 


0051 

005« 

0095 

0096 

005? 

6056 

9054 

0060 

0061 

0062 


006} 

0064 

0065 

0066 
O 0067 

0060 

3 0064 

0070 


0071 

007? 

0073 

0074 

0075 

0076 

0077 
0070 
0074 
0060 
0061 
006? 
0001 
0064 
0064 
0066 
0067 
0060 
0064 

0040 

0041 
004? 
004 J 

0044 

0045 

0046 

0047 


e 

i? 


so 

c 

II 


SI 

c 

16 

r 

15 

16 
17 


16 

14 

?l 

?} 


100 

10 ? 

101 

1 04 
40? 


NU« RECORDS 


CALL T*UTTC!4U* 

60 TO 16 
CALI T|0FtNT0>4 
60 TO 10 

8PAC? T**UT TAPE 

TPfWUM.67.0)BO* TO SO . 

N7T«I»P4(NHM) 

C4U T4KSPf*Tt>Tn 
60 TO 10 

CALL TSxTPfMTJ.HlIM) 

60 TO 10 

SPACE OUTPUT TAPE NU* RECOROS 
TFfMJ*‘.GT.0)6Cif TO 31 
*TT«I*PsfNIIM) 

CAl.l T6*SPfMTff>Tn 
60 TO 10 

CALL TSKlPfMTtSiNIIM) 

60 TO 10 

SPACE TW* INPUT TAPE NUM PILES 
CAI.L TFlLEfM7llNU»0 
SO ?0 10 

space T)»* output Tapp nun piles 

CALL TPUFfNTO'.NU*) 

60 m to 

CAIL PEONCO 
60 TO lo 
*TU«MTt 
NT T*NTO 
CALL PFONE6 
M*T«NTU 
60 TO 10 

r*u smltst 

60 TO 10 
MTU*NTI 
mTT**TO 
CAI L SMLTST 
MTT*Ntn 
60 TO 10 

wRTTF f To* |03»*nPTN 

SO TO 4 

wPTTr f T T * 1041 

PEAOfTT.loOJNUNl 

60 TO lo 

c040iTf?A?,?T?0 

POBN*Tf'ONO IFrAL CHOJCfS' ) 

POONATf .01,!?, i TS NOT A LEGAL Tape OPTION VO'J *U3T CONS1CLP ThIS 
1.100 *'tNtShF0<) 

POPNATf T*IS TS * PAUSE. HIT CS TO PROCEtO • ) 

f NO 




c a 






<3 
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'at* 


■* ' ,„****• 
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o 

000! 

0002 


o 

0003 

OOOfl 

000S 



0006 


o 

0007 

OOOS 

50 

o 

0009 

0010 

60 

001! 



0012 

TO 

o 

0013 

1 

0019 


o 

0013 

0016 

0017 

10 

o 

oots 

0019 

0020 


o 

0021 

0022 

0023 


o 

oo?« 

0025 

C 


0026 

0027 

72 

) 

0028 


J 

0029 

0030 

C 

2 

J 

0031 

0032 

0033 



0030 

0035 

21 

> 

0036 


A 

J 

0037 

0038 
0030 



noan 

3 

3 

ooat 

0002 


) 

0003 

0009 

00«R 

31 

3 

0006 

0007 

0006 


3 

0009 

0050 

0051 


O 

0032 

0053 

0050 



subroutine etst 

COM«n kJ / U MTTS/lN*TO.HTl.MTO.NOCP# lNA{t530),lN8S*N0PTN 
C0NwnN^$T4TUSyifST*T(2) 

«I M f NSTON tor 3«) .El (30) » 10 (30) *K0(6) 

OIkEnuToV T0Afi530) 

Olf'ENStO' 1 l.N^Rf 30) »FNPB{30)» A1 (30) . 

GO TO ($0.60*70) .nOPTN 
CALL |NlTl 
GO TO 1 
CALL INIT* 

GO TO 1 

CALL 1NIT3 

CAIL RCOHSf) 

GO 10 Tb1,6 
BOf I)«TNA(t*II 
C*tL SWAB(BOfn) 

CONTINUE 

Entry SmLIST 

NRFC«0 

NR-XbrRRQ 

NP*INAfBT 

C*t L GETCOf IWA^NP, Ao f EO» A1,E1) 

LE^TNrTNAdJF? 

HTtbUNtT, TN* is THE INPUT BUFFER, INBS IS THE SIZE OF BUFFER IN WORDS 
TPfNOcP.Fo'.0»<5n TO 2 
00 22 T*1,TNBS 
CALL sw*R(TNA(T)) 

COnTInUF 

CALL TWcTTfHT.-jriNA.lNRS) 

CALL TWiTTfWTOj 

°EiO 0*T» RcCORO 
CAI L TRFirX-lt. TNA, JNRS1 
CAl.L TWiTTfHTU 
WRTTF'f TP.ROT) 

TNBS«wSTATf?T/P 
TF t iNRS.LF'.nSn TO 5 
CONTINUE 
NRFC«»JRFC*1 

TFfNHrC.C,T'.NP^Y)r,0 TO 5 
00 3 T 3 1 • T NRS 
CALL SWA«f TN*tT)T 
CONTlNt.'F 

CAIL TSTAT(MTi,TSTAT,TRFSl 
IFfIANO(TSTAT,"200',NF.O)GO TO 5 
J«0 

LAGsNp*? 

continue 

J*Jt2 

00 0 f • 1 . np 
J«.»M 
ANBlNAf J) 

TEr«Fof n 
!Ei«E t f n 

CAl L r,FTF*P(TEfl.FAO) 

CALL r.FTCYP(TF?,FAl ) 

FNpR(T)«An( J)*rAO**N*A! c I J *FA I 
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J 

MOCP’.FTN 


yTPi®i.oc«*/«R 


0055 

« 

continue 

3 

0056 


60 TO f 9<9.6 ) #nOPTN 


0057 

9 

IFfNflCP.Fo’.OIGO TO th,1) 


005® 


KSTF«RNRR(«> 

o 

0050 


TwpFnRPMU 


0060 


TO«FN»R(l«) ... 


0061 


*PapMM(6) 

o 

0062 


CALL RLM«fK5TE;Tw,T0,BP#l 


0063 


ICOofOfNR) 


0060 


Tt 1 *F 1 In®) 

o 

0065 


call e?TfxR(rert,F*ot 


0066. ..... 


CALL GETE*®tIEi.FAl> 


0067 


T|M«At fNP)*F6| 

o 

006® 


!FfTEM‘.C8.0JTE»t«1.0 


0069 


*Ni(Rh>AO(NP)*FAO)/TEM 


0070 


!N*(Lt6l*ANA«,^ 

o 

0071 


LAr,oCA6*Np62 


0072 .... 


60 TO f6.7I#*OPTN 


0073 

6 

CALL POP! (FNP*;k&) 

o 

0070 


60 TO 69 


0075 

7 

CALL pOPpfPNPRTKD) 


0076 


60 TO 09 

o 

0077 

6 

GAIL pf)P3eFNPP>0) 


007® 

a9 

COMTINUE 


0079 


l®f J.LT.LFNTMJ p.O TO 31 

o 

00®0 


IFfNOCP.F9.0Kn TO 2 


00®t 


00 66 T«1 ( LCMT* 


00®2 


CAIL SWA»nNA(T)l 

J 

00«3 

a® 

continue 


OOAO 


CAI L TWRtTfHTOllNA.tNaS) 


0065 


CAIL TWAlT("70l 

3 

00®6 


CO TO 2 


00®7 

5 

WRTTF(IO,903» 



C 

ENf, OF FILE 

1 

0006 


RETURN 


0060 

003 

FORH4TOOENO OF FJLE'1 


0090 

907 

FORWArf ) 


0091 


FNO 






■ M 


t 

| 

I 
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0001 
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0003 
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0007 
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0010 
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0019 

0020 
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0076 
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0020 
•> 0079 

0030 

0031 
O 0032 

0033 
0039 
3 0035 


3 0036 

0037 
0030 
0039 

0090 

0091 
) 0092 

0091 
} 0099 

0095 

0096 


0097 
Cl 0098 


1 

10 

11 


c 

c 

c 


36 


12 


C 

c 

13 


C 


19 

c 

c 

15 


SUMnuTfNe roir 

eOMMOM/uMiT»/lN.Te.WT!.PTQ»Nf!C*#!N4(1530>#IN§S»NOPTN 

C0MHDN/8T*TU3/98T*T(2) 

OImEw,I 0 n TC*(?530)iLMPRf25)*10N(2) # II0F(2,3) ,IHE0(2> 
DIMENSION lC0X>30),lC9f30),*l{30),KCM»(«),FC9{30) 
01 M ENS70 N A9(S6).E0(J0).Flt30) 
ftATA tFr)F/iCO':'Bv'#'0C'.'LE'.»He',*TN«/ 

DATA nBEC,TSFG>Bwx,NTxTP6,KOF/0, 0,9999, 0,3/ 

DATA KCHA/0,6* 1 1 . 1«/ 

LMCM».«999 
UMO«o 
UNNi<) 

ISB39999 

nrfc«6 
11*0 

ITa9 

CALL BfDHfO 
NP«IN*(*) 

9E*0(tN,907)(IwA(!),1b5,7) 

00 1 t»3*7 

CALL S«AR(TNA(T)) 

CONTINUE 
DO 11 lal.TNRS 
lOACUslNAC) 

CONTINUE 

CAU B»TC0(!MA.NP,A0,E0,AI,E11 
LENTH«TNA(l)/2 

w»TTE MFAOgo BECOHD HEBE 

00 36 K«1,TNB3 
CALL *wtft(T0Afv)1 

CONTINUE 

CA|L T w 9TT(H T 0.TnA*IN08) 

CAU TW»TT(MTOi 
BEAOf tN,900)TFn*KLI 
NL T«! 4 B 3 (9L I ) 

rtf iSP’.iT'.LFNTHjr.n to is 
SE* n OaTa BrCOBO 

CALL TBF*n(MTT,tNA,tHOS) 

CA'.L TW*TT(“Tp 
TM»S*¥«TAt(2V> 

TFfINqS.LE'.nCn 70 51 

TAIL TsTATfHTr.TSTAT.IBES) 

!F( JANOf TS7AT,»200l .NE.OICO TO 5t 
nrf C aiyREC ♦ 1 

TFfNBpC.OT*. NB M y)fiO TO 51 
T3P»0 

CO 19 T«1,TNPS 
CALL SWAB(TNA(rn 
CONTtNUF 

CHSCK FUNCTION CODE 
KOFBNtlMapD nP FUNCTIONS ALLOWED 
00 17 .10*1 ,*nF 
00 16 Jl»l,2 


n Op> , 

■ 






o 



FOPTBAN 

TV. 

PLUS V02.04 10103145 04.0IC-74 

9 

HQEP.ETN 

/T»'|§LflCK3/w» 


004' 


IPfIFNf JIl'.NE .tEOFf JI. J0D60 TO 17 

• 

0090 

16 

CONTINUE 


0091 


60 TO f30.40»5t)>J0 


0092 

17 

continue 

• 

0053 


WRITE‘fT0.409)lPN 


0054 


cau run 



C 

copy 'OllTINir 

e 

0055 

30 

CONTINUE 


0094 


T3T«T«4*1 


0057 


!SP«l0P*NP*2 

0 

0050 


TFUSt'.gT.LENTmJCO TO 13 


0094 .. 


TFf I8P.6 T.LF*»th)CO TO 13 



C 

ICPXsINOrX APBAV 

o 


c 

incm«lt*j» nu**beb to chance 



e 

*IcPl*NU«hE4 OF CHANCES PER LINE 



e 

TCA bINTfB 6£B CHANCE 049 Ay 

• 

0060 


LINO»l TNO il 


0001 


TF f*tj".GT’. p)GO TO 32 


0002 


TF f LNOH.ftE.LT NO) 60 TO 32 

9 

0003 


9EAO(TN,4ol JNNfH.NCPL, f I CO* ( JJ) , JJ«1 ,NCPl) 


004« 


4.EAOTTN,4O0) fPrAfJJ)#JJPl»NCPL) 


0005 


LNCH4TApS(KNCH3 

O 

o;oo 


NOPHCbO 


0007 


00 37 JJal.NCPL ~ 


0000 


|F fMO»HC.NE.O)CO TO 41 

Q 

ooo' 


00 34 Ja 1 . 4 


oo*o 


Iff ICf)V{JJ) .NE'.KCH4(J))CO TO 34 


0071 


N0PHC»4444 

9 

0072 


60 TO 4 | 


00*3 

34 

COvTJnUE 


0074 

41 

!CO*( jJ)aTCOvrtJ)+? 

o 

0075 

37 

continue 


0070 


*0xal 


0077 

32 

J«1 

o 

0070 


DO 31 JJalST, tSP 


0070 


T I « 1 1 ♦ 1 


0000 


.tPaJ 

•"N 

0001 


JBUI 


0002 


I0aNcH,6T',LTNn)f.O TO 33 


0003 


IF f NATH ,l T . 0 ) Vi !■! *08 (KLI ) 

0 

0044 


JDwsIrOxfMOX) 


00*5 


I P f JP.Nf', JOXIGO TO 33 


0000 


TFfHOy’.r.T.NCPLlGO TO 33 

3 

0007 


J0*«JO*.2 


0003 


ANibFC A f mox 1 


0004 


TEOaFnf JOX) 

> 

0040 


TF 1 «F 1 (JOxJ 


0041 


CALL GFTFxP ( TF * ( F Afl) 


0042 


CAI L CPT0xPnEi*PAl) 

3 

004J 


tF“*a i (.m* i*f*T 


0044 


IF(TFm’.E0.0)TEmb1 ,0 


0045 


ANa(AN.AO(JDX)*FA01/TEH 

.3 

004(i 


TOAH jlaAN 


0047 


MDVtMOV^I 


0040 


60 TO 34 

3 

0044 

33 

T0A(H)aINA(JJ3 













J 

F0»T9*N IVaPLUS V02.04 t ft t OS t AS 09.DEC-7A PAGE 10 

J MOPP.PTN /TPiHecKS/*** 



0100 

34 

LNPftrj)aTo*(rn 

3 

0101 

31 

CONTINUE 


010} 


tPfLNcN.GT*.tr4fl)GO TO 47 


0103 


IFfNOPNC.EO.MGO TO 47 

3 

oioo 


lEOaFOfi) 


OIOS 


T E 1 «E 1 f 4 ) 


0100 


CALI ftPTE*4(rf«,P40) 

3 

0107 


CALL eFT4X*fI*?,PAn 


0100 


anblnd4;7) 


0109 


K5TE«*0f4)*PAeiAN*Al(4)*FAl 

D 

0110 


TCOaEpf*) 


.0111 . 

, 

I£l*Elf6) - 


0112 


CALL GFtFxP( ftfl#FA0) 

3 

0113 


CALL fiFTEXP(Tfl,PAl) 


oit« 


AN«LNP4|9) 


Oils 


PP«A0r8)*FA09A M *Al(6)*FAl 

O 

0110 


TEOaEflfl 1 1 


0117 . 


. TE1 »Ei ( 1 1 ) . 


0110 


CALL pFTFxPf I€g*FA0) 

3 

w 

0119 


CALL GFTEX*I It 1 *PA 1 ) 


0120 


ANcLNpP (14) 


0121 


T!>*AO r m«FAO»4N*At(ll)*FM 

3 

0122 


TEOnEOf 14) 


0!?3 


tEi«Eino) 


0124 


CALL GETFxP(t£«#EAO) 

3 

012S 


C*tL GFTPxP{TEi,FAl) 


0126 


A6«LNPP(1T) 


0127 


TDo AOfla)*FAO*AN* 41(14) *FA1 

J 

0120 


CA1L »Lhm ( ksTE7Tw # to,8P, , »H) 


0129 


It o«F 0 f nP) 


0130 


If l«Ef (N») 

y 

0131 


CAl.L r,FTFxO(TF0,F*0) 


013? 


CALL f,PT«-XPfTF?,F*l) 


OH! 


TE U « A 1 fH°)*FAl 

•» 

A 

0134 


TFfTE« , .|'3.0)TF*«al .0 


013S 


A6»(Rm.*«(NPj *rAO) /TEM 


0136 


lOAflhaAN 


0137 


NOBHCaO 


0130 

47 

TF( II'.Ge'.LFNTMIGO TO 38 


0139 


IFfLlNO.OE.MLllGO TO 1? 

3 

0140 


GO TO 30 


0141 

3? 

l IMN*| IN**1 


0142 


LNPPf n»l!NN 

3 


C 

kRTTE(Tn,904)L wp P 



C 

taOTTr t n* TO OhTPUT tape 


0143 


no 35 k«i,tmas 

) 

0144 


CALL *w*P(TOAfy) 1 


0145 

35 

PO'iTTNl'P 


0146 


CALL TWPlTfMTOlinA.LENTM) 

) 

0147 


C At L TWATTfMTOi 


0148 


1 1»0 


0109 


IF f L IMP. GF ,NL I iGO TO 12 

3 

0150 


GO TO 30 


$» 


C 

c dflftf pouttne 

C DELETE POUTTHC 



1 


-«*■ ■ ■-» *«uih*.r. fe. W . *4 ftHMbu. ,1* . M » - . flEa.yp".* :• J 






O 

009TP4N !V*PLUS V02.04 16|03»05 09*DEC»76 ®A6i it 

3 MOFP.FTN /TPtBtOCK3/»k» 


o o 

0151 

0152 
0155 
0150 

0155 

0156 

40 

CONTINUE 

f STBf&P+t 
!8P«!3t*4«Po2 

TF(|ST>,T.lFN?*Of,ft TO 13 . 

IFflSP.eT.LENTulGO TO 13 

LlNni|_Tk|0+t ... . . ... . ... .. .... 


0157 


TPfllNfl.R|‘.NlIiSO TO 12 

3 

0150 


f.O TO 00 „ 


0159 

0160 

51 

IFfllUo.OlW TO 5* 
00 53 T«Il,LtXTH 

O 

0161 

0162 

53 

!0*(!l«0 

OOMTlNltf* - - 


0163 


00 55 laliLFNTM 

o 

016« 


COLL 9“*»(T0*lTn 

Q 

0165 

0166 

55 

CONTINUE 

COIL T w 9TTf M TO,tOO*LENTH) 

0167 

50 

PETUPn 


0168 

opo 

F0»N0Tf2*2.I63 


0169 

901 

1 09Ni T 1 1 615) 

3 

0170 

902 

F0BM* T f t 6<iX,O6)) 


0171 

903 

PQOMOtT M » 1 

<3 

0172 

9G0 

F09N4fM*,12nO> 

0173 

909 

»0ON* T f 1»,?»?,T6) 


017(1 

906 

F09“*T f 1 6F5 , 01 .... 


0175 

907 

70PN*Tf 1*?1 


017b 

0177 

009 

F09N4T t • 06*909 IN EDIT DEC*»*»ILLEG6L FDlT OPTION* t 3X»242) 

end 


3 

3 


5 

O 

3 

3 

3 
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0001 

8U4»0tlT!ME OfTfOf 1 N*,n4,40,E0,A1,E1) 

o 

0002 

0!"ENSt0N f MAC? 1. A0(| ),tO(l),Al (|)»E|(1) 


0003 

td«4 


0004 

00 1 t»l.NP 

3 

0005 



A AAA 

IflfltatlHi'MIl . - - - 


0007 

TBa!H+i 

Q 

oooo 

FOfUsTNAC TB) 


0009 

T8«I8;i 


0010 

AlfI)«!NA(Tft» 

Q 

oott 

TBalBil 


.0012 

E»m«!NA(!iJ .. 


0013 1 

COnTImUE 

O 

0014 

I0a4 


0015 

RETURN 


0014 

END 

© 






3 


3 

O 

3 


3 

3 

3 



3 

3 

3 


3 

© 





«—n ■ - ••■«'- 


v liSlie.', 


16101116 


OR-OEC-7* 


R*0k 16 




3 

.) 


RORTR4N IV-RLUS VOf.OR 
MOtP.fTN /T»i6L«C»»/M» 


O 

O 

i) 

Q 


ooot 

0002 

000 5 

0006 
0006 
0006 
0007 
0006 
0060 

0010 i 

0011 

.0012 


OUMOoTTN* REDmEO _ _ ___ 

CO“ m Om/U‘I!T8/Iw»TO»mTI#hTO#NOCR#IN6C1510J#IN66#NOPTN 

C0*‘>’(»n/ST*TUS/i»8T*T(2) 

IN*6«t ?J0 

CHI T*|*0^ M 71 . 1M# IN88) 

C*LL TW*!Tf**7!l . 

!M8««8T6Tfn/R 

00 1 t«l *1*188 
CHI S***(!N»(T>1 

continue 

return 

1 NO 


% 

■5 

M 


i 


o 


9 

9 


<* p^l 

°Off 



3 

3 

3 

3 


J 

5 


3 

3 

3 


0 


3 





UiOaiH 


p*OI t« 


» 


POPT»*N IV*PLUS VOlmtltt 
MpfP.MN /TtagSL^C^S^w* 


:'-• OCC-70 


) 6001 
0002 
ooos 

} 0000 
ooos 

, 0000 
O 0007 
0000 
_ oooo 
3 ooio 
.0011 
0012 
o oois 
ooia 
OOIS 
•3 0010 

0017 

0018 
O ooio 

0020 

0021 

**> 0022 
0023 


e this iumomttni calculates the relative humidity 

SUMOuTIMf »IM«(k 5TI # TW,T0,BP»8H) 
oi**iNstoN Hsitf 

0*T» kS!TE # DH0/70#U8i105i2#75.«#63,9,#1,3#7S«*/ 

PP«0,6 

DP «0 T«1,A — - - - 

irfKfTr.H 2 >*iYEfinoo to «o 

PP«DP0(I) 
r.o to «i 
«0 COMT f NUt 

«i eoutmuc 

T»»«T»+23S r 0 . . 

TDP«TB*233,0 

0tot8.ifl7*S«l7SA,?ft6/TNP 

OD«8.|O70S»17SA,28O/TDO 

to*tw«to»tm 

PW«io‘.0**QM 

PEO«10‘.0**OD 

POtRP.PP 

7E"P«fc’.O*PP*T0“TH#M.0*l,lSaTDHTH/l 000, 0)/ 10000,0 

p*«pw.Tr M o 

pm b p*/PE6*100.A 

PE torn 

end .... . . ... 


'3 


J 

> 

> 

) 


■> 

) 

3 


o 

*) 


*$ 
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J *017. *TN /T»i«tflC*S/n» 


7A6E n 


o 


o 


Q 


0001 
0002 
0001 
oooo 

0005 

0006 
0007 
0000 

0009 

_ ooto 

9 001 1 

.0012 
0011 
9 ooio 

0015 

0016 
9 0017 

0019 

0010 

9 0020 
0021 
0022 
0021 
002a 
0075 
002 * 
0027 

0020 
0020 


9 

0010 

00 !) 

9 0012 


9 


too 


101 

107 


OUMOuTfNr 7077(7,1101 

omNsto* 7(1 );k(6)*a(i7i,ko(6) 

DAT* t TNf , l .77 , t«76. 10/0000, 55* 0.6/ 

^(Llor.LT'.LJ'OiCO TO 1 

11*1*0 

fRITKifTO, 102)«fi _ 

*7TT7 f TO# 100) 
tS7G«T8?G*1 
l 1*1*1 T*7*1 

J*0 - 

*{1>M(mO,5 

t»7(2lA0.5 

CALL 0C7(l.K(2l) 

l«7(11*0'.5 

0*1.1 8!7(L.K(«1) 

K(6)arm»0.5 • 

00 1 T>5« 0 

. J*Jtl - 

A(J)«7(!1 
00 U f >10,22 
J*Jt1 
A(.D«7(n 

w7TTCf!O,l01)IAEB#'«iA 

•C»U7»i 

7NT0V Tn!T7 

TS7G*0 

L!Nfc««OtO 

FO»M*t(/' LI *Ei, IX. «DAV , lX, 'CUT' , I X, <8 JfE' , lx, '7yR A' ,5X, 'B7» ,2X» 

1 •*/!**' ,7*, IW/MO' •**# '0 1 O' , i X, • T /*7T • ,2X * • T 20',2X,'T 21', lX, 
2'T/0*y',?x.'T i»2»,2x,'T 21',*X,'T 7«',?X,'T 25',2X.'T 20'.2x, 
l'f 27 i, 2*. ,T 2««.l*»'*7l *') 

70#m* T (, x t !5.2v,T2,7x, all, 7x, II. 77, 2, 177.1, «x, 1176,1) 

70*“4t( ' 1 ' «5*» 'GE*E7*TJ0N DATE ' i 3*7, OX, 1 ACQUISIT 10* 0* TE ' » IX , J*2) 
7*0 


0 

3 

9 

9 

3 

9 

9 

O 


°^m v p^. 


&>► ilf ■ 


& 


1 



3 


700TOON tV.OLUO voi.OO IHOOIJT 00*DCC«70 20 

) ner^.MN 


1 

0001 


'suoomitrNf *iPo(r,*D> 

1 

0001 


Oi»«N*!OM r{li;K(tl|l{ll)i 00*01 

eoo> 


OOTO lTwe,I.M, rite. 10/00M, 55,0,0/ 

1 3 

0001 


I7(L!^.UTU*»\00 TO l 

0001 


LIMloo 

S' 

0000 


WfttVfftOilOttNO — 

? , 

000T 


WBlTrftO.lOO) 

i 3 

0000 

1 

flfOtmirl 

| 

0000 


imot.T*ir*i 

1 

0010 


«morn>*o.» 

O 

0011 


L*B(|J*0.5 

3 

0012 

0011 


eou. »fO(L.M2l) . - ~ 4 

lo*(tlTQ*.S 

ooto 


eout 9t»(L*Kf*l) 


0010 
eo 10 


00 2 TOflO 
JotoS 

0 

0017 

2 

0(TJ«0(J) 


0010 


wWTTe'ftO.lODMtn.o.O 


ooto 

S 

• T'TUOm 

3 

0020 

0021 

0022 


fNTOt TMlTl 
TSOOio 

LINEmM* 

•3 

002) 


so rn i 


0020 

tot 

fOOV*Tfl»,T5,l»,TJ,l*,OH,J«rO,l) .. 

3 

002s 

too 

BOO^OTf/' t I 1 -!'#’*# *D0V»,2*, * CUT * # 3* # * T l',)*# 1 ? )•,)!, »T 
1 0 l , Sy , l T 5«,)V,'T 0«,)*.'T T • , )< , • T «»,)**•? < • , l», « T 1 0 ' , )X, » T l 1 » 
2.3y, * r* 2 ',)*. »t IS',)*, *T 1 o*,Sx, »T1?*.)*,‘T10', )X. 'Tl7», JX,*Tl««) 


0020 

102 

FtiOM0t{Mi,50,»6fM00TtCN OOTt * , )02 , 0* , • OCQUlU T ION OOTE J , i* , 302) 

3 

0027 


)r M> 


3 

3 


3 


t ' 


3 

3 

3 

3 


3 

9 


3 







wu tefc 


5 


ro*T»AN ]v*Pi,ui voj.ea uie«i«7 ea»orc»T* 

O *974.77* sT4t*l0e«f/M 


oooi 
O oooi 
0001 
000« 

Q 0009 I 

0004 
* 0007 

O 0008 ? 

0004 


•UMOuTlNf MTrX*(Il,7») 

tmii.it’.oj&o to » 
7UI0t«!( 

60 TO t 

. . 

r*«r.o/M 
•f rg»N 
7*0 


Q 


O 


o 

9 

O 

9 

) 


) 


3 

9 


J 

.) 


J 

) 

9 

> 



) 


FORTRAN TV. PIUS VOBiOfl UiOUIUU 09.0FC.76 RACE 26 

> HOEP.PTN /TPiBlPCK«/WB 


0001 

3 0002 
0003 
0006 
O 0005 
0006 
0007 

O 


9 


SUBROUTINE SFPfKN.KO) 

niMFkjjtOM KOf 11 

BTtKN/lo 

XOflUKT 

KOf 2 )«km-kT*10 

RETURN . 

FNO 


O 

o 


© 

d 


9 

3 


© 


3 

O 

3 

O 

3 

© 


o 


.S**' * 

39 




) 


3 


o 

0 

o 

o 

o 

0 

1 
D 
0 
> 
> 
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HOEP.PTN /T»,»lDCKS/'»0 


0001 

0003 

0003 

oooa 

0005 

0006 
0007 

ooos 

0009 

0010 
0011 
0012 
0013 

ooia 

0015 

0016 
0017 
0016 

0019 

0020 
0021 
0022 
0023 
0020 

0025 

0026 
0027 
0020 

0029 

0030 

0031 

0032 


1 


mo 

mi 

102 


SUPROtlTjME PCIP?(F,*D) 

Ol^Stn* F(1 )Tf(6)#*(7)*«D{6) 

DAT* i TigF.i PP.TSFC,, 10/9999, 55, 0,6/ 

IFaiNF .LT.lRRlGO TO 1 
WPTTEf TO, 1021*0 
UI w E*0 

wRTTEfTO.100) 

!SFr,*T8Fr.*l 
L mE*L T ♦ 1 
J«0 

*(1)»FM)*0.5 
L»F (21+0.5 
C*U. 3EBfL.FT23) 

L*F(Jl»o‘.S 
CALI. SFPfL.KCfll) 

*(6)»F(ol+0,5 
DO 3 las.* 

Js.J*l 

*( j)«fc n 
6(5)«Ff 11) 

Af7)»F(2?) 

i * 3 t te(To. mi) i«eg,*,a 
sr tupm 
f.mtpv TMTT1 
TSFG»o 

LI k C«P°99 

GO Tfl <1 . 

FC&f'ATf/ 1 I INE» . « OA V.3S. 'CUT SITE '.SX.'PYRiSSS.'Sf", 
llx.' u/SPn*,lx;' w/OIO' ,1 SX, 'T/*FT' ,13X, 'T/OBY' ,Olx, 'PM. "'/) 
FOBMirf ,» T5,?K,T?,2KmIl ,2X,I3,F7,2 # 3F7.1,2n2x,F6,tl ,uo*.F6,l) 

FOO^Arf < I • ,5», »PFN.FBATI0V DATE ' ,3A2,9X, 1 AfCJIJ I $ I T 10** t> 4 ft ' , lx, 3A2) 
FNPl 


** Pf ^ Y 


3 


3 


J 

3 


3 


3 




1 



